REM Sub includeFile(fSpec)
    REM executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll()
REM End Sub

' popup method : http://msdn.microsoft.com/en-us/library/x83z1d9f%28v=vs.84%29.aspx
Function msgBoxPopup(strText,nSecondsToWait,strTitle,intButton)
	Dim objShell
	Set objShell = CreateObject("Wscript.Shell")
	
	msgBoxPopup = objShell.Popup(strText, _
								nSecondsToWait, _
								strTitle, _
								intButton)
End Function